home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-09-27 | 47.0 KB | 1,630 lines |
- ;=================================================================================
- ; $VER: Installer_SKRIPT_für_WRITE 4.126 (27-Nov-95) © 1989 - 1995 by Tim Teulings
- ;=================================================================================
- ; Only Experts
-
- (set @user-level 2)
-
- (set DEMO TRUE)
-
- (set @HOME-DIR (expandpath ""))
-
- ; Some global strings
-
- (if (= @language "Deutsch")
- (
- (set #demo-version (cat "\n"
- "\n"
- "Dies ist nur eine Demo-Version!!!\n"
- "\n"
- "Wollen sie sich registrieren lassen, so schreiben sie an:"
- )
- )
- (set #address (cat "\n"
- "Tim Teulings \n"
- "An der Dorndelle 16 \n"
- "59192 Bergamen (Deutschland) \n"
- "\n"
- "MausNet: Tim Teulings @ UN \n"
- "InterNet: rael@edge.ping.de \n"
- "\n"
- "Und überweisen sie 30 DM auf folgendes Konto: \n"
- "Sparkasse Berkamen - Bönen \n"
- "BLZ : 410 518 45 \n"
- "KontoNr.: 16186496 "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #demo-version (cat "\n"
- "\n"
- "This is only a demoversion!!!\n"
- "\n"
- "If you want to gegister please write to:"
- )
- )
- (set #address (cat "\n"
- "Tim Teulings \n"
- "An der Dorndelle 16 \n"
- "59192 Bergamen (Deutschland) \n"
- "\n"
- "MausNet: Tim Teulings @ UN \n"
- "InterNet: rael@edge.ping.de \n"
- "\n"
- "and transfer 30DM to the following account: \n"
- "Sparkasse Berkamen - Bönen \n"
- "BLZ : 410 518 45 \n"
- "KontoNr.: 16186496 "
- )
- )
- )
- )
-
- ;=============================================================================
- ; make sure we are running under a 2.04 ROM
-
-
- (if (= @language "Deutsch")
- (
- (set #bad-kick "WRITE läuft nur mit Kickstart 2.0 oder größer!")
- (set #intro (cat "\n"
- "\n"
- "WRITE - Ein Texteditor\n"
- "© 1989-1995 von Tim Teulings\n"
- "\n"
- "Dieses Produkt ist Shareware.\n"
- "Die Registrierungsgebühr beträgt 30DM.\n"
- "\n"
- "Die unregistrierte Version ist leicht eingeschränkt\n"
- "und verbietet das Bearbeiten großer Texte.\n"
- "\n"
- "Bitte lesen sie das Kapitel `Copyright'\n"
- "der Anleitung."
- )
- )
- (set #ioerror1 (cat "\n"
- "FEHLER"
- )
- )
- (set #ioerror2 (cat "\n"
- "\n"
- "Ein Fehler ist aufgetreten. \n"
- "\n"
- "Bitte informieren sie mich darüber. \n"
- "Geben sie dabei genau an wann und unter \n"
- "welchen Bedingungen der Fehler aufgetreten\n"
- "ist. Schicken sie, wenn vorhanden auch \n"
- "bitte das Log-File mit \n"
- "\n"
- "Danke. "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #bad-kick "WRITE needs OS 2.0+!")
- (set #intro (cat "\n"
- "\n"
- "WRITE- a texteditor\n"
- "@ 1989 - 1995 by Tim Teulings\n"
- "\n"
- "This is shareware.\n"
- "The registration costs 30DM\n"
- "\n"
- "The unregisted version is slighly cut\n"
- "and prohibits working on huge files.\n"
- "\n"
- "Please read chapter `Copyight'\n"
- "in the docs."
- )
- )
- (set #ioerror1 (cat "\n"
- "ERROR"
- )
- )
- (set #ioerror2 (cat "\n"
- "\n"
- "An error occured. \n"
- "\n"
- "Please inform me about this. \n"
- "Please give complete and exact information \n"
- "in which situation the error occured. \n"
- "Send me also, if existing, the logfile \n"
- "genereate dby the installer. \n"
- "\n"
- "Thank you. "
- )
- )
- )
- )
-
-
- (if
- (< (/ (getversion) 65536) 37)
- (
- (abort #bad-kick)
- )
- )
-
- (message #intro)
-
- (welcome)
-
- (set @default-dest "")
-
- (onerror (
-
- (if (> @ioerr 0)
-
- (
- (message #ioerror1 @ioerr #ioerror2)
- )
- )
- ) )
-
-
- ;=============================================================================
- ; An Pre 4 version found!
-
- (if (= @language "Deutsch")
- (
- (set #old-version1 (cat "\n"
- "Sie haben bereits eine alte Version von WRITE \n"
- "installiert. WRITE wurde inzwischen stark \n"
- "überabeitet und wird nun anders installiert \n"
- "(Näheres siehe nächste Seite). \n"
- "Bevor sie mit der Installation fortfahren, \n"
- "machen sie bitte erst eine Sicherheitskopie \n"
- "der alten Installation und entfehrnen sie alle\n"
- "zu WRITE gehörigen Teile (siehe ebenfalls \n"
- "nächste Seite) aus ihrem System. \n"
- "\n"
- "(Fortsetzung)"
- )
- )
- (set #old-version2 (cat "\n"
- " * Die Installation wurde geändert, um die zu \n"
- " WRITE gehörigen Daten besser und übersicht- \n"
- " licher anzuordnen. \n"
- " Auch eine Deinstallation wird so einfacher. \n"
- "\n"
- " * Zur Deinstallation ihrer alten Version \n"
- " löschen sie bitte nicht nur WRITE selbst \n"
- " auch die alten Konfigurationen, den Guide, \n"
- " den Quickstarter, die Kataloge.... \n"
- "\n"
- "(Fortsetzung)"
- )
- )
- (set #old-version3 (cat "\n"
- "\n"
- "Kopieren sie außerdem ihren Keyfile in das\n"
- "Verzeichnis aus dem sie auch diese Skript \n"
- "gestartet haben. \n"
- "\n"
- "Ich möchte mich noch einmal besonders bei \n"
- "den registrierten Usern für diese \n"
- "Umstände entschuldigen und hoffe auf \n"
- "Verständnis. "
- )
- )
- )
- )
-
-
- (if (= @language "English")
- (
- (set #old-version1 (cat "\n"
- "You already have installed an old version of \n"
- "WRITE. WRITE was much inproved since your \n"
- "version. The installationprocedure has changed\n"
- "(please read next page for more infos). \n"
- "Before continuing to install please make an \n"
- "backup of your old installation and remove all\n"
- "files belonging to WRITE (see also next page).\n"
- "\n"
- "(continue)"
- )
- )
- (set #old-version2 (cat "\n"
- " * The installationprocedure was changed to \n"
- " make the arrangement of the files more \n"
- " clear. \n"
- " A deinstallation is much simple now. \n"
- "\n"
- " * To deinstall your old version please delete\n"
- " not only WRITE itself but also your old \n"
- " configs, guide, catalogs, quickstarter... \n"
- "\n"
- "(continue)"
- )
- )
- (set #old-version3 (cat "\n"
- "\n"
- "Copy also your keyfile in the directory you \n"
- "have started this script from. "
- )
- )
- )
- )
-
-
- (if
- (exists "ENV:WRITE")
- ;THEN
- (
- (message #old-version1)
-
- (message #old-version2)
-
- (if
- (exists "ENV:WRITE.KEY")
- ; THEN
- (
- (message #old-version3)
- )
- )
- ; END
-
- (exit)
- )
- )
- ;END
-
- ;=============================================================================
- ; Found an Version 4 or higher!?
-
- (if (= @language "Deutsch")
- (
- (set #write-found1 (cat "\n"
- "\n"
- "Sie haben WRITE bereits installiert. Das Skript \n"
- "wird nun ihre Version auf den neusten Stand \n"
- "bringen. \n"
- "\n"
- "Vorhandene Dateien werden hierbei überschrieben! \n"
- "Haben sie Dateien der Standarddistribution \n"
- "verändert (hautsächlich Konfigurationen und \n"
- "Module), so machen sie sich bitte von diesen SELBST\n"
- "Sicherheitskopien. "
- )
- )
- (set #write-found2 (cat "\n"
- "\n"
- "ALLE ZU WRITE GEHÖRIGEN FILES DER \n"
- "STANDARDDISTRIBUTION WERDEN ÜBERSCHRIEBEN. \n"
- "MACHEN SIE VORHER EIN BACKUP, WENN SIE SICH\n"
- "NICHT SICHER SIND, OB... "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #write-found1 (cat "\n"
- "\n"
- "You already have installed WRITE. This script will \n"
- "make your version up to date. \n"
- "\n"
- "Existing files will be overwritten! \n"
- "If you have changed parts of the standard- \n"
- "distribution (configs and modules) please make a \n"
- "backup of your data on your own NOW! "
- )
- )
- (set #write-found2 (cat "\n"
- "\n"
- "ALL FILES BELONGING TO THE STANDARDDISTRIBITION OF \n"
- "WRITE WILL BE OVERWRITTEN. \n"
- "PLEASE MAKE A BACKUP NOW IF YOU ARE NOT SURE... "
- )
- )
- )
- )
-
-
- (if
- (exists "ENV:WRITEPATH")
- ;THEN
- (
- (message #write-found1)
-
- (message #write-found2)
-
- (set REINSTALL TRUE)
-
- (set KEY (getenv "WRITEPATH"))
- (set KEY (tackon KEY "WRITE.KEY"))
-
- (if
- (exists KEY)
- (
- (set DEMO FALSE)
- )
- (
- (set DEMO TRUE)
- )
- )
-
-
- )
- ;ELSE
- (
- (set REINSTALL FALSE)
- (set DEMO TRUE)
- )
- ;END
- )
-
-
- ;=============================================================================
- ; Installieren von WRITE
-
- (if (= @language "Deutsch")
- (
- (set #write-dir1 (cat "\n"
- "\n"
- "Ab Version 4 ist es nun möglich (fast) alle \n"
- "zu WRITE gehörigen Dateien in ein Verzeichnis\n"
- "zu kopieren. \n"
- "\n"
- "Bitte geben sie im Folgenden nun an, in \n"
- "welches Verzeichnis sie WRITE kopiert haben \n"
- "möchten. \n"
- "\n"
- "Benutzen sie BITTE ein eigenes Verzeichnis \n"
- "für WRITE! "
- )
- )
- (set #write-dir2 (cat "Wohin sollen 'WRITE' und alle hinzu-\n"
- "gehörigen Dateien kopiert werden?"
- )
- )
- (set #write-dir3 "Kopiere 'WRITE' nach:")
- )
- )
-
- (if (= @language "English")
- (
- (set #write-dir1 (cat "\n"
- "\n"
- "Since version 4 ist is now possible to copy \n"
- "(nearly) all files in one directory. \n"
- "\n"
- "Please tell now zo which directory you want \n"
- "the files copied to. \n"
- "\n"
- "Please use an own directory for WRITE!!! "
- )
- )
- (set #write-dir2 (cat "Where do want 'WRITE' and all its data to\n"
- "be copied to?"
- )
- )
- (set #write-dir3 "Copy 'WRITE' to:")
- )
- )
-
- (if
- (exists "ENV:WRITEPATH")
- ;THEN
- (
- (set @WRITE-DIR (getenv "WRITEPATH"))
- )
- ;ELSE
- (
- (message #write-dir1)
-
- (set @WRITE-DIR
- (askdir (prompt #write-dir2)
- (help @askdir-help)
- (default "sys:WRITE")
- )
- )
-
- )
- ;END;
- )
-
- (set @WRITE-FULL (tackon @WRITE-DIR "WRITE"))
-
- (copyfiles (prompt #write-dir3
- @WRITE-FULL
- )
- (help @copyfiles-help)
- (source "WRITE")
- (dest @WRITE-DIR)
- (infos)
- )
-
- (set @default-dest @WRITE-DIR)
-
- ;=============================================================================
- ; Setzen der Umgebungsvariablen WRITEPATH
-
- (if (= @language "Deutsch")
- (
- (set #env-write "Setze ENV:WRITEPATH")
- )
- )
-
- (if (= @language "English")
- (
- (set #env-write "Setting ENV:WRITEPATH")
- )
- )
-
- (working #env-write)
- (textfile (prompt "")
- (help "")
- (dest "ENV:WRITEPATH")
- (append @WRITE-DIR)
- )
-
- ;=============================================================================
- ; Setzen der Umgebungsvariablen WRITEPATH für immer
-
- (if (= @language "Deutsch")
- (
- (set #envarc-write "Setze ENVARC:WRITEPATH")
- )
- )
-
- (if (= @language "English")
- (
- (set #envarc-write "Setting ENVARC:WRITEPATH")
- )
- )
-
-
- (working #envarc-write)
- (textfile (prompt "")
- (help "")
- (dest "ENVARC:WRITEPATH")
- (append @WRITE-DIR)
- )
-
-
- ;=============================================================================
- ; Installieren von QuickWrite - dem Quickstarter
-
- (if (= @language "Deutsch")
- (
- (set #qw1 (cat "\n"
- "Wollen sie auch QuickWrite, den Quickstarter\n"
- "von WRITE installiert haben? \n"
- "Er stellt fest, ob WRITE bereits gestartet \n"
- "worden ist, und startet ihn, falls nicht. \n"
- "Anschließend werden die übergebenen \n"
- "Kommandos über den AREXX-Port an WRITE \n"
- "weitergeleitet. \n"
- "Der Quickstarter muß nicht ins gleiche Ver- \n"
- "zeichnis wie WRITE kopiert werden, sollte \n"
- "sich aber im Suchpfad befinden! "
- )
- )
- (set #qw2 (cat "\n"
- "\n"
- "Welchen Namen soll der Quickstarter erhalten?"
- )
- )
- (set #qw3 "Wohin wollen sie den Quickstarter kopiert haben?")
- (set #qw4 "Kopiere 'QuickWrite' nach:\n")
- )
- )
-
- (if (= @language "English")
- (
- (set #qw1 (cat "\n"
- "Do you want to have quickwrite, the quick- \n"
- "starter for WRITE, to be installed? \n"
- "It tests if WRITE was started and starts it \n"
- "if not. After that the given files are \n"
- "loaded via the arexxport of WRITE. \n"
- "The quickstarter needs not to be installed \n"
- "in the same directory as WRITE but it should\n"
- "be in the searchpath! "
- )
- )
- (set #qw2 (cat "\n"
- "\n"
- "Which name should the quickstarter have? "
- )
- )
- (set #qw3 "Where do you want quickwrite to be copied to?")
- (set #qw4 "Copying 'quickwrite' to:")
- )
- )
-
- (if
- (askbool (prompt #qw1)
- (help "")
- )
- ;THEN
- (
- (set @QS-NAME
- (askstring (prompt #qw2)
- (help "")
- (default "WED")
-
- )
- )
- (set @QS-PATH
- (askdir (prompt #qw3)
- (help "")
- (default @WRITE-DIR)
- )
- )
-
- (set @QS-NEW (tackon @QS-PATH @QS-NAME))
-
- (copyfiles (prompt #qw4
- @QS-NEW
- )
- (help @copyfiles-help)
- (source "QuickWrite")
- (dest @QS-PATH)
- (newname @QS-NAME)
- (infos)
- )
-
- (protect @QS-NEW "+r +w +e +d +p")
-
- )
- ;END
- )
-
- ;=============================================================================
- ; Installieren der garbagecollector- und write.library
-
- (if (= @language "Deutsch")
- (
- (set #libs (cat "\n"
- "Es werden nun folgende Libraries installiert:\n"
- "\n"
- "garbagecollector.library \n"
- " * Zuständig für die Speicherverwaltung \n"
- " von WRITE. \n"
- "\n"
- "write.library \n"
- " * Bietet einige nützliche Funktionen für \n"
- " externe Programme. "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #libs (cat "\n"
- "The following libraries will be installed now:\n"
- "\n"
- "garbagecollector.library \n"
- " * Necessary for the memorymanagement of \n"
- " WRITE \n"
- "\n"
- "write.library \n"
- " * Offers some usefull functions for \n"
- " external programms. "
- )
- )
- )
- )
-
- (message #libs)
-
- ;=============================================================================
- ; Installieren der garbagecollector.library
-
- (if (= @language "Deutsch")
- (
- (set #garbage (cat "Installiere die\n"
- "'GarbageCollector.library'\n"
- "nach LIBS:"
- )
- )
- (set #garbageh (cat "Die 'GarbageCollector.library' ist für die "
- "Funktion von 'WRITE' unbedingt nötig. "
- "Sie organisiert die Speicherverwaltung."
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #garbage (cat "Copying\n"
- "'garbagecollector.library'\n"
- "to LIBS:"
- )
- )
- (set #garbageh (cat "The 'garbagecollector.library' is necessary "
- "for WRITE and must be installed. It work "
- "it the memoryrorganisation for WRITE"
- )
- )
- )
- )
-
- (copylib (prompt #garbage)
- (help #garbageh)
- (source "LIBS/garbagecollector.library")
- (dest "LIBS:")
- (confirm)
- )
-
- ;=============================================================================
- ; Installieren der write.library
-
- (if (= @language "Deutsch")
- (
- (set #writelib (cat "Installiere die\n"
- "'write.library'\n"
- "nach LIBS:"
- )
- )
- (set #writelibh (cat "Die 'write.library' ist für die "
- "Funktion von 'WRITE' NICHT unbedingt nötig, wird aber "
- " z.B. vom Quickstarter benutzt und sollte deshalb "
- "auch installiert werden."
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #writelib (cat "Copying\n"
- "'write.library'\n"
- "to LIBS:"
- )
- )
- (set #writelibh (cat "The 'write.library' is not necessary for WRITE, but is used "
- "for example the quickstarter and should be installed, too"
- )
- )
- )
- )
-
- (copylib (prompt #writelib)
- (help #writelibh)
- (source "LIBS/write.library")
- (dest "LIBS:")
- (confirm)
- )
-
- ;=============================================================================
- ; Installieren der hui.library
-
- (if (= @language "Deutsch")
- (
- (set #otherlib1 (cat "\n"
- "Desweiteren werden die 'hui.library', die \n"
- "js_tools.library sowie einige externe \n"
- "BOOPSI-Klassen installiert: \n"
- "\n"
- "Die hui.library ist zuständig für die font-\n"
- "sensitive Oberfläche von WRITE. \n"
- "\n"
- "© scroller.gadget, select.image, \n"
- " fuelgauge.image: Hartmut Goebel \n"
- "\n"
- "© textfile.gadget: Mark Thomas \n"
- "\n"
- "© js_tools.library: J. Schmitz "
- )
- )
- (set #otherlib2 (cat "Installiere die\n"
- "'hui.library'\n"
- "nach LIBS:"
- )
- )
- (set #otherlib2h (cat "Die hui.library ist zuständig für die fontsensitive "
- "Oberfläche von WRITE und wird unbedingt benötigt!"
- )
- )
- (set #otherlib3 (cat "Installiere die\n"
- "'js_tools.library'\n"
- "nach LIBS:"
- )
- )
- (set #otherlib3h (cat "Die js_tools.library implementiert ein leistungstarkes Listgadget "
- "welches von der hui.library und damit auch von WRITE benötigt wird."
- )
- )
- (set #otherlib4 "Kopiere\n")
- (set #otherlib5 "nach:\n")
- )
- )
-
- (if (= @language "English")
- (
- (set #otherlib1 (cat "\n"
- "Also 'hui.library', 'js_tools.library' and \n"
- "some external boopsi-classes are installed \n"
- "now: \n"
- "\n"
- "The 'hui.library' is necessary for the \n"
- "fontsensitive gui of WRITE. \n"
- "\n"
- "© scroller.gadget, select.image, \n"
- " fuelgauge.image: Hartmut Goebel \n"
- "\n"
- "© textfile.gadget: Mark Thomas \n"
- "\n"
- "© js_tools.library: J. Schmitz "
- )
- )
- (set #otherlib2 (cat "Copying\n"
- "'hui.library'\n"
- "to LIBS:\n"
- )
- )
- (set #otherlib2h (cat "The hui.library is responsible for the fontsensitive "
- "gui and must be installed!"
- )
- )
- (set #otherlib3 (cat "Copying\n"
- "'js_tools.library'\n"
- "to LIBS:"
- )
- )
- (set #otherlib3h (cat "'js_tools.library' implements a powerfull listgadget, which is used "
- "by hui.library and so must be installed!"
- )
- )
- (set #otherlib4 "Copying\n")
- (set #otherlib5 "to:\n")
-
-
- )
- )
-
- (message #otherlib1)
-
- (copylib (prompt #otherlib2)
- (help #otherlib2h)
- (source "LIBS/hui.library")
- (dest "LIBS:")
- (confirm)
- )
-
- (copylib (prompt #otherlib3)
- (help #otherlib3h)
- (source "LIBS/js_tools.library")
- (dest "LIBS:")
- (confirm)
- )
-
- (if
- (exists "sys:classes")
- ;THEN
- (
- (set @GADGETS-DIR "SYS:classes/gadgets")
- (set @IMAGES-DIR "SYS:classes/images")
- )
- ;ELSE
- (
- (makedir "LIBS:gadgets")
- (makedir "LIBS:images")
- (set @GADGETS-DIR "LIBS:gadgets")
- (set @IMAGES-DIR "LIBS:images")
- )
- )
-
- (copylib (prompt #otherlib4
- "'scroller.gadget'\n"
- #otherlib5
- @GADGETS-DIR
- )
- (help "")
- (source "LIBS/gadgets/scroller.gadget")
- (dest @GADGETS-DIR)
- (confirm)
- )
- (copylib (prompt #otherlib4
- "'textfield.gadget'\n"
- #otherlib5
- @GADGETS-DIR
- )
- (help "")
- (source "LIBS/gadgets/textfield.gadget")
- (dest @GADGETS-DIR)
- (confirm)
- )
-
- (copylib (prompt #otherlib4
- "'fuelgauge.image'\n"
- #otherlib5
- @IMAGES-DIR
- )
- (help "")
- (source "LIBS/images/fuelgauge.image")
- (dest @IMAGES-DIR)
- (confirm)
- )
-
- (copylib (prompt #otherlib4
- "'select.image'\n"
- #otherlib5
- @IMAGES-DIR
- )
- (help "")
- (source "LIBS/images/select.image")
- (dest @IMAGES-DIR)
- (confirm)
- )
-
- ;=============================================================================
- ; Installieren der garbagecollector Prefs
-
- (if (= @language "Deutsch")
- (
- (set #garbprefs1 (cat "\n"
- "\n"
- "Soll das Preferences-Programm\n"
- "'GarbagePrefs'\n"
- "kopiert werden?\n"
- "\n"
- "Über dieses Programm kann die GarbageCollector.library "
- "konfiguriert werden."
- )
- )
- (set #garbprefs1h (cat "Über das GabargePrefs-Programm kann die Speicherzuteilung und Nutzung"
- "für den Garbagecollector und damit auch für WRITE optimal eingestellt "
- "werden. Nur durch das GarbagePrefs-Programm wird die 'garbagecolletor.library' "
- "optimal konfiguriert!"
- )
- )
- (set #garbprefs2 (cat "Wohin soll das Preferences-Programm\n"
- "'GarbagePrefs'\n"
- "kopiert werden?"
- )
- )
- (set #garbprefs3 "Entpacke prefs/GarbagePrefs.lha nach \"%s\"")
- (set #garbprefs4 (cat "\n"
- "\n"
- "GarbagePrefs wird nun gestartet! \n"
- "Selektieren sie das Menü 'Editieren/Werte \n"
- "vorschlagen' und speichern sie danach ab. \n"
- "Lesen sie später, falls sie mit der \n"
- "Speicherbenutzung von WRITE nicht zufrieden\n"
- "sind, den Text 'GarbageCollector.LiesMich',\n"
- "um den GarbageCollector noch besser an ihr \n"
- "System anzupassen. "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #garbprefs1 (cat "\n"
- "\n"
- "Do you want the preferencesprogramm\n"
- "'GarbagePrefs'\n"
- "to be installed?\n"
- "\n"
- "With the use of this programm you can configure\n"
- "the garbagecollector.library"
- )
- )
- (set #garbprefs1h (cat "With this programm you can optimal set the memory-access and -use "
- "of the garbagecollector and there for WRITE, too. Only with this "
- "programm you are able to configure the library in an optimal way!"
- )
- )
- (set #garbprefs2 (cat "Where should the preferencesprogramm\n"
- "'GarbagePrefs'\n"
- "copied to?"
- )
- )
- (set #garbprefs3 "Extracting prefs/GarbagePrefs.lha to \"%s\"")
- (set #garbprefs4 (cat "\n"
- "\n"
- "GarbagePrefs will be started now! \n"
- "Select item 'Editieren/Werte vorschlagen' \n"
- "and save after that. \n"
- "Read later, if you are not pleased with the\n"
- "memoryuse of WRITE, the text \n"
- "'GarbageCollector.Liesmich' to optimaly \n"
- "configure the collector to your needs. "
- )
- )
- )
- )
-
- (if (askbool (prompt #garbprefs1)
- (help #garbprefs1h)
- )
- ;THEN
- (
- (set @PREFS-DIR
- (askdir (prompt #garbprefs2)
- (help @askdir-help)
- (default "SYS:Prefs")
- )
- )
-
- (set @PREFS-FULL (tackon @PREFS-DIR "GarbagePrefs"))
-
- (if (not (or (patmatch "#?:" @PREFS-DIR) (patmatch "#?/" @PREFS-DIR)))
- (
- (set @PREFS-DIR (cat @PREFS-DIR "/"))
- )
- )
-
- (working (#garbprefs3 @PREFS-DIR))
-
- (run ("c/lx -m x prefs/GarbagePrefs.lha \"%s\"" @PREFS-DIR))
-
- (if (= @REINSTALL FALSE)
- (
-
- (message #garbprefs4)
- (run ("\"%s\"" @PREFS-FULL))
- )
- )
- )
- ;END
- )
-
-
- ;=============================================================================
- ; Installieren des Keyfiles
-
- (if (= @language "Deutsch")
- (
- (set #key "Kopiere 'WRITE.KEY' nach:")
- )
- )
-
- (if (= @language "English")
- (
- (set #key "Copying 'WRITE.KEY' to:")
- )
- )
-
- (if (exists "WRITE.KEY")
- ;THEN
- (
- (copyfiles (prompt #key
- @WRITE-DIR
- )
- (help @copyfiles-help)
- (source "WRITE.KEY")
- (dest @WRITE-DIR)
- )
-
- )
- ;END
- )
-
- ;=============================================================================
- ; Kopieren der Konfiguration
-
- (if (= @language "Deutsch")
- (
- (set #config "Kopiere die Konfigurationen nach:\n")
- (set #configh "Der Standardkonfigurationsfile sowie einige Beispielkonfigurationen.")
- (set #config2 "Lösche ")
- )
- )
-
- (if (= @language "English")
- (
- (set #config "Copying the configurations to:\n")
- (set #configh "The standardconfiguration and some other examples")
- (set #config2 "Deleting ")
- )
- )
-
- (set @CONFIG-DIR (tackon @WRITE-DIR "Config"))
-
- (if (not (exists @CONFIG-DIR))
- (
- (makedir @CONFIG-DIR)
- )
- )
-
- (copyfiles (prompt #config
- @CONFIG-DIR
- )
- (help #configh)
- (source "Config/")
- (dest @CONFIG-DIR)
- (all)
- )
-
- (foreach @CONFIG-DIR "#?.pp"
- (
- (set @PP-FILE (tackon @CONFIG-DIR @each-name))
- (delete @PP-FILE
- (prompt #config2
- @each-name
- )
- (help "")
- )
- )
- )
-
- ;=============================================================================
- ; Kopieren der Module
-
- (if (= @language "Deutsch")
- (
- (set #module1 "Kopiere die Module nach:\n")
- (set #module2 "Lösche ")
- )
- )
-
- (if (= @language "English")
- (
- (set #module1 "Copying the modules to:\n")
- (set #module2 "Deleting ")
- )
- )
-
- (set @MODULE-DIR (tackon @WRITE-DIR "Module"))
-
- (if (not (exists @MODULE-DIR))
- (
- (makedir @MODULE-DIR)
- )
- )
-
-
-
- (copyfiles (prompt #module1
- @MODULE-DIR
- )
- (help "")
- (source "Module/")
- (dest @MODULE-DIR)
- (all)
- )
-
- (foreach @MODULE-DIR "#?.pp"
- (
- (set @PP-FILE (tackon @MODULE-DIR @each-name))
- (delete @PP-FILE
- (prompt #module2
- @each-name
- )
- (help "")
- )
- )
- )
-
-
-
- ;=============================================================================
- ; Installieren der Default-Icons
-
- (if (= @language "Deutsch")
- (
- (set #icons1 (cat "\n"
- "\n"
- "Kopiere die Default-Icons für das App-Icon\n"
- "und das Text-Icon nach: \n"
- )
- )
- (set #icons2 (cat "\n"
- "Diese können von Ihnen durch beliebige \n"
- "andere ersetzt werden. WRITE wird sich \n"
- "jedoch beschweren, wenn sie sie weglassen."
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #icons1 (cat "\n"
- "\n"
- "Copying the default-icons for the app-icon\n"
- "and the text-icon to: \n"
- )
- )
- (set #icons2 (cat "\n"
- "This icons can be exanged by other icons \n"
- "any time. But WRITE will ensist on them, \n"
- "don't remove them "
- )
- )
- )
- )
-
- (set @ICON-DIR (tackon @WRITE-DIR "Icons"))
-
- (if (not (exists @ICON-DIR))
- (
- (makedir @ICON-DIR)
- )
- )
-
- (copyfiles (prompt #icons1
- @icon-dir
- #icons2
- )
- (help "")
- (source "icons/")
- (dest @ICON-DIR)
- (Pattern "WRITE_#?.info")
- )
-
- ;=============================================================================
- ; now copy the catalogs
-
- (if (= @language "Deutsch")
- (
- (set #lang (cat "Welche Sprachen sollen installiert werden?\n"
- "\n"
- "Besitzen sie z.B. bereits eine deutschsprachige "
- "Version von WRITE, brauchen sie nicht extra "
- "einen Katalog installieren!"
- )
- )
- (set #langh (cat "Eine sehr nützliche Sache:\n"
- "'WRITE' unterstützt die 'locale.library', "
- "welche ab OS 2.1 vorhanden ist.\n"
- "'WRITE' kann damit in weiten Teilen "
- "sprachlich angepasst werden!"
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #lang (cat "Which languages do want to be installed? \n"
- "\n"
- "Note that if you have an german version of\n"
- "WRITE you do not need an german catalog! "
- )
- )
- (set #langh (cat "A usefull thing:\n"
- "'WRITE' supports the 'locale.library' available for OS 2.1+. "
- "In consequense 'WRITE' kann be addapted in many parts to any language."
- )
- )
- )
- )
-
- (if (>= (/ (getversion "LIBS:locale.library") 65536) 38)
-
- (
- (set lang (askoptions (prompt #lang)
- (help #langh)
- (choices "english")
- (default 0)
- )
- )
-
- (set n 0)
- (while
- (set language (select n "english"
- ""
- )
- )
- (
- (if (IN lang n)
- (
- (set target (tackon "Locale:Catalogs" language))
- (makedir target)
- (copyfiles (source (cat "LOCALE/Catalogs/" language))
- (dest target)
- (all)
- )
- )
- )
- (set n (+ n 1))
- )
- )
- )
- )
-
- ;=============================================================================
- ; Abfrage, welche Anleitungen installiert werden sollen
-
- (if (= @language "Deutsch")
- (
- (set #docs "Welche Anleitungen möchten sie installiert bekommen?")
- (set #docsh (cat "WRITE.guide - Die Anleitung im Amigaguide-Format.\n"
- " (notwendig für die Onlinehilfe!) \n"
- "WRITE.makeinfo - Ein .makeinfo-File der Anleitung \n"
- " (benötigt makeinfo/texinfo! Nicht \n"
- " in der Demoversion!) \n"
- "Garbage..Mich - Textfile über den GarbageCollector \n"
- " (Wichtig, unbedingt lesen!) "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #docs "Which documents do you want to have installed?")
- (set #docsh (cat "WRITE.guide - The documentation as guide. \n"
- " Necessary fo the online-help \n"
- "WRITE.makeinfo - A .makeinfo-file of the docs \n"
- " (needs makeinfo/texinfo! Not \n"
- " available in the demoversion!) \n"
- "Garbage..Mich - text about the garbagecollector \n"
- " (Important, please read!) "
- )
- )
- )
- )
-
- (set @DOKBITS
- (askoptions
- (prompt #docs)
- (help #docsh)
- (choices "WRITE.guide"
- "WRITE.makeinfo.lha"
- "GarbageCollector.LiesMich"
- )
- (default 1)
- )
- )
-
- ;=============================================================================
- ; Installieren von WRITE.guide
-
- (if (= @language "Deutsch")
- (
- (set #guide1 "Entpacke Docs/WRITE.guide.lha nach \"%s\"")
- (set #guide2 "Kopiere 'WRITE.guide' nach:\n")
- )
- )
-
- (if (= @language "English")
- (
- (set #guide1 "Extracting Docs/WRITE.guide.lha to \"%s\"")
- (set #guide2 "Copying 'WRITE.guide' to:\n")
- )
- )
-
- (if
- (IN @DOKBITS 0)
- ;THEN
- (
- (set @GUIDE-DIR (tackon @WRITE-DIR "docs"))
- (set @GUIDE-FULL (tackon @GUIDE-DIR "WRITE.guide"))
-
- (if (not (exists @GUIDE-DIR))
- (
- (makedir @GUIDE-DIR)
- )
- )
-
- (if
- (exists "Docs/write.guide.lha")
- (
-
- (if (not (or (patmatch "#?:" @GUIDE-DIR) (patmatch "#?/" @GUIDE-DIR)))
- (
- (set @GUIDE-DIR (cat @GUIDE-DIR "/"))
- )
- )
-
- (working (#guide1 @GUIDE-DIR))
-
- (run ("c/lx -m x Docs/WRITE.guide.lha #? \"%s\"" @GUIDE-DIR))
-
- )
- ; ELSE
- (
- (copyfiles (prompt #guide2
- @GUIDE-DIR
- )
- (help @copyfiles-help)
- (source "WRITE.guide")
- (dest @GUIDE-DIR)
- (infos)
- )
- )
- )
- ; END
-
- (tooltype (prompt "Setzte DefaultTool...")
- (help "Nichts Gefährliches!")
- (dest @GUIDE-FULL)
- (noposition)
- )
- )
- ;END
- )
-
- ;=============================================================================
- ; Installieren von WRITE.makeinfo
-
- (if (= @language "Deutsch")
- (
- (set #makeinfo1 (cat "Wohin soll das Archiv mit dem makeinfo-File\n"
- "'WRITE.makeinfo.lha'\n"
- "kopiert werden?"
- )
- )
- (set #makeinfo2 "Entpacke Docs/WRITE.makeinfo.lha nach \"%s\"")
- (set #makeinfo3 "\n\nDer makeinfo-File liegt nur der Vollversion bei!")
- )
- )
-
- (if (= @language "English")
- (
- (set #makeinfo1 (cat "Where do you want the makeinfo-file \n"
- "'WRITE.makeinfo.lha' to be copied to?"
- )
- )
- (set #makeinfo2 "Extracting Docs/WRITE.makeinfo.lha nach \"%s\"")
- (set #makeinfo3 "\n\nThe makeinfo-file is only available in the full-version")
- )
- )
-
- (if
- (= DEMO FALSE)
- ;THEN
- (
-
- (if
- (IN @DOKBITS 1)
- ;THEN
- (
-
- (set @DVI-DIR
- (askdir (prompt #makeinfo1)
- (default "TEX:")
- (help @askdir-help)
- )
- )
-
- (set @DVI-FULL (tackon @DVI-DIR "WRITE.makeinfo.lha"))
-
- (if (not (or (patmatch "#?:" @DVI-DIR) (patmatch "#?/" @DVI-DIR)))
- (
- (set @DVI-DIR (cat @DVI-DIR "/"))
- )
- )
-
- (working (#makeinfo2 @DVI-DIR))
-
- (run ("c/lx -m x Docs/WRITE.makeinfo.lha #? \"%s\"" @DVI-DIR))
-
- )
- ;END
- )
- )
- ;ELSE
- (
- (message #makeinfo3)
- )
- ;END
- )
-
- ;=============================================================================
- ; Installieren von GarbageCollector.LiesMich
-
- (if (= @language "Deutsch")
- (
- (set #colldoc1 (cat "Wohin soll die GarbageCollector-Anleitung\n"
- "'GarbageCollector.LiesMich'\n"
- "kopiert werden?"
- )
- )
- (set #colldoc2 "Entpacke Docs/GarbageCollector.lha nach \"%s\"")
- )
- )
-
- (if (= @language "English")
- (
- (set #colldoc1 (cat "Where do you want the garbagecollector-doc\n"
- "'GarbageCollector.LiesMich'\n"
- "to be copied to?"
- )
- )
- (set #colldoc2 "Extracting Docs/GarbageCollector.lha to \"%s\"")
- )
- )
-
- (if
- (IN @DOKBITS 2)
- ;THEN
- (
-
- (set @COLL-DIR
- (askdir (prompt #colldoc1)
- (default @GUIDE-DIR)
- (help @askdir-help)
- )
- )
-
- (set @COLL-FULL (tackon @COLL-DIR "GarbageCollector.LiesMich"))
-
- (if (not (or (patmatch "#?:" @COLL-DIR) (patmatch "#?/" @COLL-DIR)))
- (
- (set @COLL-DIR (cat @COLL-DIR "/"))
- )
- )
-
- (working (#colldoc2 @COLL-DIR))
-
- (run ("c/lx -m x Docs/GarbageCollector.lha #? \"%s\"" @COLL-DIR))
-
- (tooltype (prompt "Setzte DefaultTool...")
- (help "Nichts Gefährliches!")
- (dest @COLL-FULL)
- (setdefaulttool @WRITE-FULL)
- (noposition)
- )
- )
- ;END
- )
-
-
- ;=============================================================================
- ; Installieren der REXX-Script
-
- (if (= @language "Deutsch")
- (
- (set #rexx "Entpacke REXX-Skripts nach \"%s\"")
- )
- )
-
- (if (= @language "English")
- (
- (set #rexx "Extracting REXX-scripts to \"%s\"")
- )
- )
-
- (set @REXX-DIR (tackon @WRITE-DIR "REXX"))
- (if (not (exists @REXX-DIR))
- (
- (makedir @REXX-DIR)
- )
- )
-
- (if (not (or (patmatch "#?:" @REXX-DIR) (patmatch "#?/" @REXX-DIR)))
- (
- (set @REXX-DIR (cat @REXX-DIR "/"))
- )
- )
-
- (working (#rexx @REXX-DIR))
- (run ("c/lx -m x REXX/REXX.lha #? \"%s\"" @REXX-DIR))
-
-
- ;=============================================================================
- ; Ändern der user-startup
-
- (if (= @language "Deutsch")
- (
- (set #startup1 (cat "Füge folgende Zeile in die \n"
- "user-startup ein: \n"
- "\n"
- )
- )
- (set #startup2 (cat "\n"
- "\n"
- "Dadurch können REXX-Skripte\n"
- "aus WRITE heraus ohne Pfad-\n"
- "angabe gestartet werden. "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #startup1 (cat "Adding the following lines\n"
- " to your user-startup: \n"
- "\n"
- )
- )
- (set #startup2 (cat "\n"
- "\n"
- "Doing this you can execute \n"
- "the rexx-scripts from WRITE\n"
- "without giving a path. "
- )
- )
- )
- )
-
- (set @USERSTARTUP ("ASSIGN REXX: \"%s\" ADD" @REXX-DIR))
-
- (startup "WRITE"
- (prompt #startup1
- @USERSTARTUP
- #startup2)
- (help "")
- (command @USERSTARTUP)
- )
-
- (run @USERSTARTUP)
-
- ;=============================================================================
-
- (if (= @language "Deutsch")
- (
- (set #nearend (cat "\n"
- "Lesen sie nun den Text 'Garbage-Collector.Liesmich'\n"
- "sowie das Kapitel Installation in der Anleitung. \n"
- "\n"
- "Veränderen sie dann anschließend gegebenenfalls, \n"
- "wie auch im Kapitel 'Installation' der Anleitung \n"
- "beschrieben, die Tooltypes des WRITE-Icons. "
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #nearend (cat "\n"
- "Read now the text 'Garbage-Collector.Liesmich' and \n"
- "the chapter 'Installation' in the documentation. \n"
- "\n"
- "Change the if necessary and as descripted in the \n"
- "chapter 'Installation' in the docs, too, the \n"
- "tooltypes. "
- )
- )
- )
- )
-
- (message #nearend @CONFIGFULL ".")
-
- ;=============================================================================
-
- (if
- (= DEMO TRUE)
- ;THEN
- (
- (message #demo-version)
- (message #address)
- )
- ;END
- )
-
- ;=============================================================================
-
- (if (= @language "Deutsch")
- (
- (set #end (cat "\n"
- "\nDie Installation ist nun beendet.\n"
- "\n"
- "Ich wünsche ihnen viel Spaß mit dieser Version von\n"
- "\n"
- "WRITE.\n"
- "\n"
- "Tim Teulings"
- )
- )
- )
- )
-
- (if (= @language "English")
- (
- (set #end (cat "\n"
- "The installation is now finished.\n"
- "\n"
- "I wish you a lot of fun with this version of\n"
- "\n"
- "WRITE\n"
- "\n"
- "Tim Teulings"
- )
- )
- )
- )
-
- (message #end)
-